00100		DIMENSION Q(19),R(19)
00110		TYPE 24
00200		TYPE 20
00300		ACCEPT 21,N1
00400		TYPE 22
00500		ACCEPT 21,N2
00600		TYPE 23
00700		ACCEPT 21,N3
00800		CALL OFILE(1,N3)
00900		CALL IFILE(21,N1)
01000		CALL IFILE(22,N2)
01100		DO 1 K=1,3
01200		READ(21,2)Q
01300		WRITE(1,2)Q
01400	1	READ(22,2)Q
01500	C READS FIRST 3 LINES
01600		
01700		READ(21,4)L,N,P1,Q
01800		READ(22,4)L,M,PX,R
01810		TYPE 25
01820	25	FORMAT(' WORKING')
01900	6	IF(PX.LT.P1)GO TO 5
01910		CALL SHORT(Q,K)
02000		WRITE(1,40)L,N,P1,(Q(J),J=1,K)
02100	45	READ(21,44)L,N,Q
02110		CALL SHORT(Q,K)
02200		WRITE(1,44)L,N,(Q(J),J=1,K)
02300		IF(N.NE.'PRINT')GO TO 45
02400		READ(21,4)L,N,P1,Q
02410		IF(N.EQ.'FINIS')GO TO 10
02500		GO TO 6
02510	5	CALL SHORT(R,K)
02600		WRITE(1,40)I,M,PX,(R(J),J=1,K)
02700	46	READ(22,44)I,M,R
02710		CALL SHORT(R,K)
02800		WRITE(1,44)I,M,(R(J),J=1,K)
02900		IF(M.NE.'PRINT')GO TO 46
03000		READ(22,4)I,M,PX,R
03010		IF(M.EQ.'FINIS')GO TO 11
03100		GO TO 6
03200	
03300	10	IF(N.EQ.M)GO TO 12
03400		P1=10000
03500		GO TO 6
03600	11	IF(N.EQ.M)GO TO 12
03700		PX=10000
03800		GO TO 6
03900	12	WRITE(1,7)
04000		END FILE 1
04100	2	FORMAT(19A5)
04200	4	FORMAT(A1,A5,F,19A5)
04250	40	FORMAT(A1,A5,F7.2,19A5)
04300	44	FORMAT(A1,20A5)
04400	7	FORMAT(' FINISH;')
04450	24	FORMAT(' MIXES SCORE LISTS.'/
04475		1' BE SURE ALL HIGHER PARAMS PRINT EACH TIME.')
04500	20	FORMAT(' TYPE FILE 1 (WITHOUT EXT.)   '$)
04600	22	FORMAT(' TYPE FILE 2  '$)
04650	21	FORMAT(A5)
04700	23	FORMAT(' TYPE OUTPUT NAME  '$)
04800		END
04900	
05000		SUBROUTINE SHORT(Q,K)
05100		DIMENSION Q(1)
05200		K=19
05300		DO 1 K=19,1,-1
05400	1	IF(Q(K).NE.' ')RETURN
05500		END